home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Include / Libraries / Vector.i < prev    next >
Text File  |  1997-05-06  |  3KB  |  150 lines
  1.  
  2. { *** vector.i  -  Include für PCQ1.2b ,  zur Nutzung der vector.library  *** }
  3.  
  4. {$I "include:intuition/screens.i"}
  5. {$I "include:graphics/view.i"}
  6. {$I "include:graphics/rastport.i"}
  7.  
  8.  
  9. CONST VBOB  = -1;
  10.       VLIN  =  0;
  11.       END_1 = -1;
  12.       END_2 = -2;
  13.       LAB   = -3;
  14.       DBF   = -4;
  15.  
  16. TYPE
  17.  
  18.   NewVScreen = Record
  19.     LeftEdge, TopEdge,
  20.     Width, Height, Depth :  Short;
  21.     DetailPen, BlockPen  :  Byte;
  22.     ViewModes            :  Short;
  23.     Font                 :  ^TextAttr;
  24.     DefaultTitle         :  String;
  25.     vw_Flags             :  Short;
  26.     vw_LeftEdge,
  27.     vw_TopEdge, vw_Width,
  28.     vw_Height, vw_Depth  :  Short;
  29.   end;
  30.  
  31.   NewVScreenPtr          =  ^NewVScreen;
  32.  
  33.  
  34.   Joy = Record
  35.     Mov_Z,
  36.     Border_Front,
  37.     Border_Back         :       Short;
  38.     Rot_X,
  39.     Rot_Y,
  40.     Rot_z               :       Short;
  41.   end;
  42.  
  43.   JoyPtr        = ^Joy;
  44.  
  45.  
  46.   vd_Object = Record
  47.     Point_Data,
  48.     Area_Data,
  49.     Move_Table          :       Address;
  50.     Flags,
  51.     Pos_X,
  52.     Pos_y,
  53.     Pos_z               :       Short;
  54.     Rot_X,
  55.     Rot_y,
  56.     Rot_z               :       Short;
  57.   end;
  58.  
  59.   vd_ObjectPtr     = ^vd_Object;
  60.  
  61. TYPE
  62.  
  63.  
  64.   ViewStruct = Record
  65.     VScreen             :  ^Screen;
  66.     VViewPort           :  ^ViewPort;
  67.     VRastPort           :  ^RastPort;
  68.   end;
  69.  
  70.   ViewStructPtr         = ^ViewStruct;
  71.  
  72.   World = Record
  73.     Flags               : Short;        { 1 für Drahtgitter }
  74.     ObjNum              : Short;        { Anzahl der Objekte }
  75.     first               : vd_ObjectPtr;
  76.   end;
  77.  
  78.   WorldPtr      = ^World;
  79.  
  80.  
  81.   BOB = Record
  82.     Width, Height       :  Short;
  83.     GFX_Data,
  84.     Msk_Data            :  String;
  85.   end;
  86.  
  87.   BOBPtr        = ^BOB;
  88.  
  89.  
  90.   BOBList = Record
  91.     Number              :  Short;
  92.     BOBs                :  BOB;         { ? }
  93.   end;
  94.  
  95.   BOBListPtr    = ^BOBList;
  96.  
  97.   Rot3D = Record
  98.     RotX,
  99.     RotY,
  100.     RotZ        : Integer;
  101.   end;
  102.   Rot3DPtr      = ^Rot3D;
  103.  
  104.  
  105. VAR  VecBase: Address;
  106.  
  107.  
  108. Function SetVBI(a1 : string) : Integer;
  109.   External;
  110.  
  111. Function InitVBOBs(d0: Integer; a0: string; a1: BOBListPtr; a2: String) : Integer;
  112.   External;
  113.  
  114. Function OpenVScreen(a1: NewVScreenPtr): ViewStructPtr;
  115.   External;
  116.  
  117. Function CloseVScreen : Integer;
  118.   External;
  119.  
  120. Function UseJoy(d0: Integer; a1: JoyPtr):Integer;
  121.   External;
  122.  
  123. Function DoAnim(a1: WorldPtr):Integer;
  124.   External;
  125.  
  126. Function RotateX(d0,d1,d2,d3,d4,d5,d6: Integer; a1: Rot3DPtr) : Rot3DPtr;
  127.   External;
  128.  
  129. Function RotateY(d0,d1,d2,d3,d4,d5,d6: Integer; a1: Rot3DPtr) : Rot3DPtr;
  130.   External;
  131.  
  132. Function RotateZ(d0,d1,d2,d3,d4,d5,d6: Integer; a1: Rot3DPtr) : Rot3DPtr;
  133.   External;
  134.  
  135. Function FreeVBOBs : Integer;
  136.   External;
  137.  
  138. Function AutoScaleOn(d0: Integer) : Integer;
  139.   External;
  140.  
  141. Function AutoScaleOff : Integer;
  142.   External;
  143.  
  144. Function FreeJoy : Integer;
  145.   External;
  146.  
  147. Function SetColors(a0: ViewStructPtr; a1: Address):Integer;
  148.   External;
  149.  
  150.